00100	OP
00200	GOO(X1,Y1)
00300	NIL
00400	NIL
00500	NIL
00600	ROB(X1);HANG(Y1,O1);AT(Y1,X1);;
00700	AT(Y1,O1);;
00800	
00900	OP
01000	FOO(X1)
01100	NIL
01200	NIL
01300	NIL
01350	AT(X1,Y1);AT(X1,Y2);;
01400	TILT(X1,Y1,Y2);;
01500	
01600	ROB(M);HANG(P,B1);AT(P,M);;
01700	
01800	T
01900	((ROB NIL NIL NIL NIL)
02000	(HANG NIL NIL NIL NIL)
02100	(AT T NIL NIL NIL (X,*))
02200	(TILT T NIL NIL NIL))
02300	NIL